mark /A pushcol sumtomark count 1 roll counttomark count 1 sub 1 roll cleartomark div pstack
